﻿Public Class Cls_Util
    Private Sub New() 'CONSTRUCTOR
    End Sub

    Private Shared instancia As Cls_Util = Nothing
    Private Shared Menu As Frm_Menu 'Prueba

    'PROPIEDAD DE PRUEBA
    Public Property mMenu() As Frm_Menu
        Get
            Return Menu
        End Get
        Set(ByVal _Menu As Frm_Menu)
            Menu = _Menu
        End Set
    End Property

    Public Shared Function getInstancia() As Cls_Util
        If instancia Is Nothing Then
            instancia = New Cls_Util()
        End If
        Return instancia
    End Function
End Class
